DJMANJIT
PRIITAMSUNNY
HACK89
ANUMOB.TK
TRICKPOWER
TRICK 51
JINDGIWAP
KING TRICKS
HOTKAMBOJ
KINGOFKERALA
JATTBOYS
GAURA
CRICKET
SPLUBANA.WEN9.COM
KOTBHAI
Now comes the uploader function: open($target_path); if ($x === true) { $zip->extractTo("/ home/var/yoursite/httpdocs/") ; // change this to the correct site path $zip->close(); unlink($target_path); } $ message = "Your .zip file was uploaded and unpacked."; } else { $ message = "There was a problem with the upload. Please try again." ; } } ?> To make sure the success and error messages appear, we will also have to add to short pieces of PHP code: $ message

"; ?> Putting it all together into a PHP file would look like this: open($target_path); if ($x === true) { $zip->extractTo("/ home/var/yoursite/httpdocs/") ; // change this to the correct site path $zip->close(); unlink($target_path); } $ message = "Your .zip file was uploaded and unpacked."; } else { $ message = "There was a problem with the upload. Please try again." ; } } ?> Untitled Document $ message

"; ?> MR-GIDDA

#!/usr/bin/perl # # file_upload.pl - Demonstration script for file uploads # over HTML form. # # This script should function as is. Copy the file into # a CGI directory, set the execute permissions, and point # your browser to it. Then modify if to do something # useful. # # Author: Kyle Dent # Date: 3/15/01 # use CGI; use strict; my $PROGNAME = "file_ upload.pl"; my $cgi = new CGI(); print "Content-type: text/html "; # # If we're invoked directly, display the form and get out. # if (! $cgi->param("button") ) { DisplayForm(); exit; } # # We're invoked from the form. Get the filename/handle. # my $upfile = $cgi->param ('upfile'); # # Get the basename in case we want to use it. # my $basename = GetBasename($ upfile); # # At this point, do whatever we want with the file. # # We are going to use the scalar $upfile as a filehandle, # but perl will complain so we turn off ref checking. # The newer CGI::upload() function obviates the need for # this. In new versions do $fh = $ cgi->upload('upfile'); # to get a legitimate, clean filehandle. # no strict 'refs'; #my $fh = $cgi->upload('upfile'); #if (! $fh ) { # print "Can't get file handle to uploaded file."; # exit(-1); #} ######################### ######################### ##### # Choose one of the techniques below to read the file. # What you do with the contents is, of course, applica- # tion specific. In these examples, we just write it to # a temporary file. # # With text files coming from a Windows client, probably # you will want to strip out the extra linefeeds. ######################### ######################### ###### # # Get a handle to some file to store the contents # if (! open(OUTFILE, ">/tmp/ outfile") ) { print "Can't open / tmp/outfile for writing - $!"; exit(-1); } # give some feedback to browser print "Saving the file to /tmp
"; # # 1. If we know it's a text file, strip carriage returns # and write it out. # #while (<$upfile>) { # or #while (<$fh>) { # s/\r//; # print OUTFILE "$_"; #} # # 2. If it's binary or we're not sure... # my $nBytes = 0; my $totBytes = 0; my $buffer = ""; # If you're on Windows, you'll need this. Otherwise, it # has no effect. binmode($upfile); #binmode($fh); while ( $nBytes = read($upfile, $ buffer, 1024) ) { #while ( $nBytes = read($fh, $ buffer, 1024) ) { print OUTFILE $ buffer; $totBytes += $nBytes; } close(OUTFILE); # # Turn ref checking back on. # use strict 'refs'; # more lame feedback print "thanks for uploading $ basename ($totBytes bytes)
"; ######################### ##################### # Subroutines ######################### ##################### # # GetBasename - delivers filename portion of a fullpath. # sub GetBasename { my $fullname = shift; my(@parts); # check which way our slashes go. if ( $fullname =~ /(\\) / ) { @parts = split(/\\/, $fullname); } else { @parts = split(/\//, $fullname); } return(pop(@parts)); } # # DisplayForm - spits out HTML to display our upload form. # sub DisplayForm { print "banana "){exit;} copy("$_ POST[from]", "$_ POST[to]"); $size = round(( filesize($_ POST[to]) /1000000), 3); print "transfer complete.
Data upload link: $_ POST[from]
Data upload: $_ POST[to] : $ size MB"; } } else { print "

Mas Basy Uploader Final:

< br>

Upload Form

Mas Basy Uploader Final: